home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Tele / C / CommsService 2.0.2.sit / commsService 2.0.2 Final / Service Definition Files / Minnesota Uni Gopher < prev    next >
Encoding:
Text File  |  1994-09-20  |  1.9 KB  |  53 lines  |  [TEXT/cSSv]
  1. #
  2. # commsService 2.0 Service Definition File.
  3. #
  4. Name=Minnesota Uni Gopher
  5. Description=Provides access to the Minnesota Gopher server via a character interface.
  6.  
  7. TimeOut=0
  8. BreakEnabled=No
  9. PagesToScroll=30
  10. ConnectionTool=TGE TCP Tool
  11. ConnectionTokens=HostName consultant.micro.umn.edu PortNumber 23 ConnectionType TELNET TelnetBinaryMode FALSE TerminalType vt100
  12. ConnectionMenu=No
  13. TerminalTool=VT102 Tool
  14. TerminalTokens=FontSize 12 Width 80 Cursor Underline Online True LocalEcho False AutoRepeat True RepeatControls False AutoWrap True NewLine False Scroll Jump ShowControls False SwapBackspaceDelete False TerminalMode ANSI/VT102 ShowStatusBar False ShowTabRuler False InverseVideo False InsertChar False OriginAtMargin False KeyClick False CursorKey ANSI Keypad Numeric AnswerBack "" KeyboardLocked False ActiveCharSet G0 NRCSet USASCII G0 USASCII G1 USASCII G2 USASCII G3 USASCII
  15. TerminalMenu=No
  16. ServiceScripts=on LoginToService
  17. Global activeService, foundString
  18. if ExpectFromService(activeService, 30, true, true, "login:") then
  19. if foundString = 1 then
  20. get SendToService(activeService, "gopher" & return, "")
  21. if ExpectFromService(activeService, 30, true, true, "TERM") then
  22. if foundString  = 1 then
  23. get SendToService(activeService, "vt100" & return, "")
  24. if ExpectFromService(activeService, 30, true, true, "Internet Gopher Information Client") then
  25. if foundString  = 1 then return true
  26. end if
  27. end if
  28. end if
  29. end if
  30. end if
  31. return false
  32. end LoginToService
  33. ------------------
  34. on LogoutFromService
  35. Global activeService, foundString
  36. get SendToService(activeService, "q" & return, "")
  37. repeat
  38. if not(ExpectFromService(activeService, 10, true, true, "Really quit (y/n)", "tasman%")) then return false
  39. if foundString = 0 then
  40. exit repeat
  41. end if
  42. if foundString = 1 then
  43. get SendToService(activeService, return, "")
  44. end if
  45. if foundString = 2 then
  46. get SendToService(activeService, "^D" & return, "")
  47. return true
  48. end if
  49. end repeat
  50. return false
  51. end LogoutFromService
  52.  
  53.